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FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY == FACILITY NUMBER 125. 
ABSTRACT: 
The VAX-11 MACRO assembler translates MACRO-32 source code into object 
modules for input to the VAX=-11 LINKER. 
ENVIRONMENT: 
AUTHOR: Benn Schreiber, CREATION DATE: 20-AUG-78 
MODIFIED BY: 
vO3-002 ROPO024 Robert Posniak 18-JUL-1984 


Add new flag (FLGSV_NULCHR) to indicate null 
parameter in IRP definition. 


v03-001 MTROO31 Mike Rhodes 13-Apr-1983 
Add the .LINK directive terminal definition to the macro 
C_GRAMMARDEF. Additionally, SMAC_TIRCMDDEF has been 
deleted and SMAC_OBJCODDEF has been modified to include 
the SOBJDEF macro (from SYSSLIBRARY:STARLET.MLB). 


v03.00 MmTROOOS Mike Rhodes 15-Mar-1982 
Added two new flags to allow Macro to exit with the 
proper exit status. The flags FLGSV_EXTERR and FLGSV_EXTWRN 


-———-----—-- — 
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are set to indicate that a non-assembl error (eg. RMS, LBR, 
SUM, etc.) has occurred. Fixes SPR #11-41651(A). 


v02.21 MTROOO1 Mike Rhodes 02-Feb-1982 —— 
Add FLGSV_DLIMSTR to correct the Banat ie of ‘'s; 
strings in delimited .ASCIx strings. #890 and 
SPR #11-42904. 


v02.20 PCG0008 Seer es 26-Aug-1981 
Add RDX$V “DOUBLE. *ROXSY GFLOAT, RDXS$V_HFLOAT. 
Correct G=Float symbol Jeneration bug. 


v02.19 PCG0002 Peter George 16-Apr-1981 
Add new flag, DBGOUT, to output dobupger records for 
pos poets. Also rename GENERIC symbol flag bit to 


v02.18 CNHO047 Chris Hume 22-Dec-1980 
Count null argument after trailing comma for .NARG directive. 
(ARGSCN 02.08, GETARG.MAR 02.06) 


VO2.17 CNHO042 Chris Hume 28-0c t-1980 
De-optimize ayyneery valued backward references if indexing 
requested. Allow the architecturally legal immediate mode in 
address and vield contexts and also the practically useless 
indexed rasoesete © ode. 
(ACTREF .MAR 02.15, mACTSTA. MAR 02.15, SYMTAB.MAR 02.18) 


v01.16 RNOO30 Newland 14-Mar-1980 


R. N 
Increase resultant file specification buffer in 
macro library file block. 
v01.15 RNOO23 R. Newland 2-Nov-1979 
Get error messages from system message file. 
v01.14 RNOO14 ewland 10-0ct-1979 
Support for G esis H_floating and Octaword data types 
v0O1.13 RNOO13 ewland 27-Sep-1979 
Add VEC setribute’ Pace to PSECT options 
v0O1.12 RNOO11 R. Newland 11-Sep-1979 
New Librarian support - redefine MLF block and 
remove definition of MLB block. 
v01.11 RNOO10 R. Newland 5-Sep-1979 
Multipage MXB blocks 
v01.10 RNOOO8 R. Newland 29-Aug-1979 
31 character symbols 
v01.09 RNOOOS R. Newland 09-Aug-1979 


Variable sized symbol name storage and symbolically 
defined maximum argument length. 


v01.08 RNOO0O2 R. Newland 01-Feb-1979 
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Changes for Source Update Merge, add global flag 
to mark input file as be ng updated, and define 
new intermediate code for SUM orcers. 
vO1.16 RNOO18 R. Newland 20-0¢t-1979 
Define bit to get and convert macro argument to upper case. 


v0O1.15 RNOO16 R. Newland 19=0¢t-1979 
Don't output error messages yben -NTYPE operand 
argument is the PC. SPR 11=26392 


v01.06 0003 B. Schreiber 9=JAN-1979 
Catch syntax error if pound sign missing from 
immediate ASCII (*A) operands. 
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.SBTTL DECLARATIONS 
> INCLUDE FILES: 


MACROS: 


: EQUATED SYMBOLS: 


: OWN STORAGE: 
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-SBTTL SYMBOL BLOCK DEFINITIONS 
3 THIS MACRO DEFINES THE SYMBOL AND PSECT BLOCK OFFSETS 


«MACRO SMAC_SYMBLKDEF 
SYMSK_MAXLEN = 31. ; Maximum symbol name Length 


ALPHA-NUMERIC SYMBOL BLOCK 


3 THIS IS THE BASIC SYMBOL BLOCK USED TO INSERT USER-DEFINED 
; te ARE DEFINED 


SYMBOLS INTO THE USER SYMBOL TABLE. THE OFFSE 
IN RELATION TO THE BEGINNING OF THE SYMBOL BLO 


-PSECT $ABS$,ABS 
20 | 


| 
SYMSL_LINK: -BLKL 1 LINK TO NEXT tae OR 0 
SYMSB_NAME : -BLKB 1 OFFSET FROM BASE TO NAME 
SYMSL_VAL: -BLKL 1 ; SYMBOL Hat: (32 BITS) 
SYMSW_FLAG: -BLKW SYMBOL FLAGS 
SYMSB_TOKEN: -BLKB 1 TOKEN VALUE | 
SYM$B_SEG: -BLKB 1 ;SEGMENT (PSECT) DEFINED IN 
SYMSK_BLKSIZ: FIXED PART SIZE OF A SYMBOL BLOCK 


LOCAL SYMBOL (FORM nnnnn$) 


; SYMBOL BLOCK IS THE SAME AS A A/N SYMBOL BLOCK. THE SYMBOL 
3 NAME IS STORED AS <1 BYTE>LSB NUMBER + <2 BYTES> VALUE. 


OPCODE SYMBOL 


OPCODES ARE joer IN A SEPARATE SYMBOL TABLE. THE SYMBOL 
BLOCK TO DEFINE AN OPCODE IS THE SAME AS THE A/N SYMBOL 
DEFINITION BLOCK WITH THE FOLLOWING EXCEPTIONS: 


1) SYM$B_SEG DEFINES ae NUMBER OF OPERANDS wiw H THE 
SYMBOL MAY HAVE. IF THE SYMBOL IS A atts} 
= YRBOL Cees DIV AS yv¥ TO diye OR DIV5) 
THIS COUNT 0 AN LAG (SYM$V_GENERIC) WILL 


BE SET IN THE SYMSL_FLAG UoRD. 


2) FOLLOWING THE svase SEG BYTE THERE ARE STORED THE OPERAND 
BYTE DESCRIPTORS. THERE IS ONE BYTE FOR EACH 
OPERAND THAT AN OPCODE MAY HAVE. 


+ 
+ 
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SYMBOL FLAGS 


THE FOLLOWING FLAGS ARE DEFINED AND MAY BE PRESENT IN THE 
FLAGS WORD (SYMSL_FLAG). 


-MACRO SSYM_BITDEF SYMBOL 
*sYMBOC=x1 


SYMSM_ 
SYMSV~ + SYMBOL=X2 
x1 wont a1 
X2=x 2+1 
-ENDM  $SYM_BITDEF 
x1=1 
X2=0 
; BIT ON IN FLAG WORD IMPLIES 
SSYM_BITDEF DEF sSYMBOL HAS BEEN DEFINED 
SSYM_BITDEF WEAK sSYMBOL IS DEFINED .WEAK 
SSYM_BITDEF sSYMBOL IS DEFINED .GLOBAL 
SSYM_BITDEF EXTRN SYMBOL IS DEFINED .EXTERNAL 
SSYM_BITDEF sSYMBOL IS ABSOLUTE 
SSYM_BITODEF DEBUG sSYMBOL HAS .DEBUG ATTRIBUTE 
SSYM_BITDEF LOCAL SYMBOL IS A LOCAL LABEL 
SSYM_BITDEF sSYMBOL HAS BEEN REFERENCED 
SSYM_BITDEF ASN sSYMBOL CREATED BY ASSIGNMENT STATEMENT 
SSYM_BITDEF EPT SYMBOL CREATED BY .ENTRY 
SYMSM_DELMAC=SYMSM_EPT ;MACRO DEFINITION HAS BEEN +h} ED 
SYMSV_DELMAC=SYMSV_EPT ;MACRO DEFINITION HAS BEEN DELETED 
pewn Bi tose ODBG SYMBOL TO BE OUTPUT TO ww RECORD 
SSYM_BITDEF RELPSECT sSYMBOL IS REFEREN CED IN A REL PSECT 
SSYM_BITDEF XCRF D0 NOT CREF THIS SYMBOL 
SSYM_BITDEF CRFO s INSERT KEY HAS BEEN DONE FOR THIS SYMBOL 
SSYM_BITDEF SUPR : IS SET UNTIL SYMBOL IS REFERENCED 
204 
5 PSECT NAME BLOCK 
3 THE PSECT NAME BLOCK IS ihe 7 THE A/N SYMBOL BLOCK WITH 
$ THE FOLLOWING EXCEPTIONS: YM$B_TOKEN BYTE IS UNUSED, 
; AND 2)THERE ARE TWO ADDIT IONAL” FIELD DS==THE OPTIONS FLAGS WORD 
; (16 BITS) AND THE CURRENT LCCATION COUNTER (32 BITS). 
-=0 
PSCSL_LINK: -BLKL 1 sLINK TO NEXT PSECT NAME BLOCK OR 0 
PSCSB_NAME : -BLKB 1 sOFFSET FROM BASE TO PSECT NAME 
PSCSL-MAXLGTH: .BLKL 1 sPSECT MAXIMUM LENGTH 
PSC$W"FLAG: -BLKW 1 sPSECT FLAGS 
PSC$B_UNUSED -BLKB 1 sUNUSED BYTE 
PSC$B_SEG: -BLKB 1 sPSECT SEGMENT NUMBER 
PSC$W_OPTIONS: .BLKW 1 :PSECT OPTIO 
PSCSL_CURLOC: .BLKL 1 sPSECT CURRENT LOCATION 
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PSCSK_BLKSIZ: sFIXED PART SIZE OF PSECT BLOCK 


++ 


: PSECT FLAGS 
-MACRO $PSC_BITDEF SYMBOL 
C$M_'SYMBOC=X1 


PSCSM_ALLOPTNS = PSCSM_ALLOPTNS ! X1 
PSC$V~" SYMBOL =PSCSK. NO_OPTNS 


reel NO_OPTNS=PSC$K_NO_OPTNS+1 
X1=1 


PSC$K_NO_OPTNS=0 
PSCSM_ALCOPTNS=0 


SPSC_BITDEF PIC :PIC CODE 
SCSM_NOPIC=“C<PSCSM_PIC> s;NON-PIC CODE 
SPSC_BITDEF LIB : 


PSCSM_USR=*C<PSCSM_LIB> 

$PSC a 
SCSM_CON=*C<PSCSM_OVR> 

$PSC -BITEr 


L 
SCSM_ABS=“C<PSCSM_REL> 
SPSC -BITber 


PSCSM_LCL=“C<PSCSM_GBL> 
$PSC -B1Tbet 
$M_NOSHR=*C<PSC$M_SHR> 
$PSC _BITDEF 
SCSM_NOEXE=“C<PSCSM_EXE> 
SPSC_BITDEF 
PSCSM_NORD=*C<PSCSM_RD> 
SPSC_BITDEF 
PSCSM Pe ree, WRT> 


SPSC_BITDEF 
eres setcen ie -VEC> 


PSCSM_EXE=PSCSM_EXE+PSCSM_R sREAD ACCESS FOR EXE 
PSCSM_WRT=PSCSM_ “URTsPSCOM” RD READ ACCESS FOR WRT ALSO 
PSC$V_ALIGNMENT = PSCSK -NO_OPTNS FIRST BIT OF ALIGNMENT FIELD 
PSC$S_ALIGNMENT = F_ALIGNMENT FIELD 
PSCSV_ALIGNFLG = eecey “pwr es ALIGNMENT : BIT # OF ALIGNMENT FLAG 
SCSM_ALIGNFLG = 1aPSCSV NT FLAG 
PSCSM_BYTE = cOaPSC$Y AALIGNMENT> !PSESM_AL TONLE BYTE ALIGNED 
PSCSM_WORD = <1a@PSCS$V~ALIGNMENT>!PSCSM_ALIGNFLG WORD ALIGNED 
PSCSM_LON = <2@PSC$V_ALIGNMENT>!PSCSM_ALIGNFLG ¢LONG ALIGNED 


I ) 
<9aPSC$V~ALIGNMENT> !PSCSM— |-ALIGNFLG ‘PAGE ALIGNED 
PSCSM_REL!PSCSM_WRT!PSCSM_RD!PSCSM_EXE ;DEFAUTLT PSECT OPTIONS 


PSCSM_PAGE 
PSCSM_DEFAULT 


»PSECT 
-MDELETE SMAC_SYMBLKDEF, S$SYM_BITDEF, SPSC_BITDEF 
-ENDM $MAC_SYMBLKDEF 


K 1 
DEF INE .MAR; 1 16-SEP-1984 17:05:20.5 Page 8 


-MACRO $MAC_INPBLKDEF 


+ 
+ 


INPUT LINE CONTEXT BLOCK DEFINITIONS 


THIS CONTEXT BLOCK IS USED BY THE CHARACTER INPUT ROUTINE TO 
GET THE NEXT LINE WHEN NEEDED. 


SMAC_MNBDEF 


-PSECT $ABS$,ABS 
.-=0 


INPSL_LINK: -BLKL 1 LINK 10 NEXT BLOCK 

INPSL_NXTL: -BLKL 1 3LINK TO NEXT LINE 

INP$L~GETL: -BLKL 1 ADDRESS OF ROUT IN TO GET NEXT LINE 
INPSL_IFLVL -BLKL 1 ;1F'" LEVEL COUNTER 

INPSL_IFVAL -BLKL 1 :IF" VA UE 

INPSL-RPTCNT: <BLKL 1 :COUNTER FOR REPEAT/IRP 

INP$L~PAGP: -BLKL 1 te TO PAGES USED BY THIS INPUT 
INP$B_ARGCT:  .BLKB 1 :ARGUMENT COUNT 

INP$L_ARGS: -BLKL 1 :POINTERS al ARGUMENTS 

INP$K~BLKSIZ: :SIZE OF AN INPUT BLOCK 


.=0 


-BLKB © <MNBSK_BLKSIZ+SYMSK_MAXLEN*+1> ;SIZE WHEN MNB IS MADE INTO INP 
INPSK_IRPSIZ: 


-MDELETE $SMAC_INPBLKDEF 
-ENDM $MAC_INPBLKDEF 


++ 


MACRO NAME BLOCK 


THIS MACRO DEFINES THE MACRO NAME BLOCK (MNB) AND THE MACRO 
ARGUMENT BLOCK (MAB). THESE ARE USED FOR DEFINING MACROS. 


.MACRO $MAC_MNBDEF 
.PSECT $ABS$,ABS 
.=0 
MNBS$L_LINK: -BLKL 
: BLKB 


MNB : LK 
MNBSL_TXTP: »BLKL 
MNBSW_FLAG: -BLKW 


ohm TO NEXT MNB 
OFFSET FROM BASE TO MACRO NAME 
POINTER TO TEXT 


. 
ee ee 


Ne 


DEF 


AAOAOQOOAOANY 
DDDDABDADWD 
aN FR 
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MNBSL_PAGP: -BLKL 1 sPOINTER TO PAGES USED TO DEFINE MACRO | 
MNBSL-PAGC: -BLKL 1 :COUNT OF PA USED | 
MNBSL-CRSYMF: .BLKL 1 ;CREATED SYMBOL FLAGS 
MNBSB_A RGCT: -BLKB 1 3 ARGUMENT Ws T (255. MAX) 
MNBSL_ARGP: -BLKL 1 ;POINTER TO ARG LIST 
MNBS$KBLKSIZ: sFIXED PART SIZE OF MACRO NAME BLOCK | 

| 


MAB -- MACRO ARGUMENT BLOCK 


.=0 4 
MABSL_LINK: ~BLKL 1 sLINK TO NEXT MAB OR 0 

MABSB_NAME : -BLKB 1 ;OFFSET FROM BASE TO ARGUMENT NAME 

MABSB_ARGNO: -BLK 1 ;ARG NUMBER (1-255.) 

MABSW_DVLEN: -BLKW 1 ZLENGTH OF DEF. VALUE STRING 

MABSL_DVPTR: -B 1 ;PTR TO DEF. VALUE STRING 


L 
MABSK-BLKSIZ: ;FIXED PART SIZE OF MAB 


MXB -- MACRO EXTENSION BLOCK 


-=0 
MXBSL_PAGES: -BLKL 1 Number “ _ meee in block 
MXBSK_BLKSIZ: Size of 


~-MACRO S$MAC_MNBDEF 
-ENDM $MAC_MNBDEF 


.ENDM $MAC_MNBDEF 


| 
MXBSL_LINK: -BLKL 1 3; Link to next MXB 
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SMAC_GENVALDEF 


: DEFINES THE COMMONLY USED VALUES. MUST BE INVOKED IN ANY 
: MODULE THAT REFERENCES ANY OF THESE VALUES. 


8 eee 


-MACRO $MAC_GENVALDEF | 

MAC_SUBSYS = _—- 125. sMACRO=32 FACILITY NUMBER 

HASASZ = 127 ‘HASH TABLE SIZE | 
CR = “015 [CARRIAGE RETURN 
TAB = “011 ‘HORIZONTAL TAB 
FF = “014 [FORM F 
BLNK = 40 ; BLANK 
HYPHEN = “A/=/ YPH 
SEM]. = A/3/ :SEMI COLON | 
CHRSV_CVTLWC sAsa/ [CONVERT ANYTHING .GT. LOWERCASE A 
CHRSV-NOCVT “X7F [DO NOT CONVERT TO UPPERCASE 
INTSK~BUF SIZ ER TI 


<10*512>=<3e4> : SIZE OF INT. BUFF 


INTSK_BUF WRN = INTSK "BUFSI2-100° sWARNING LIMIT 

INPS$K_BUFS1Z = 1000.7 ;_ Input buffer size 

OBJ$ pirets = 512 OBJECT FILE BU FrER SIZE 

LSTSK_BUFSIZ = 134. sLISTING FILE BUFFER SIZE _ 
LSTSK-TITLE_SIZ = 40. :_ Size of title sub-string 

REGS _PC = 15 3PC_ REGISTER 

RDX$0_BINARY = 0 7 INDEX FOR BINARY RADIX 

ROX$V_OCTA = 1 ; INDEX FOR OCTAL RADIX 

RDX$SV_DECIMAL = § : INDEX FOR DECIMAL RADIX 

DXSV_HEX = : INDEX FOR HEX RADIX 
RDXSV_FLOAT = 4& ; INDEX FOR F FLOATING NUMBERS 
RDX$V_DOUBL = 5 ; INDEX FOR D FLOATING NUMBERS | 
RDX$V_GFLOAT = 6 ; INDEX FOR G FLOATING NUMBERS 
RDXS$V_HFLOAT = 7 s INDEX FOR H FLOATING a i 
LSTSK_L_P_PAGE = 60 LINES PER PAGE IN LISTING | 
STBSK-PG MISS = 10 3# PAGES TO ALLOCATE FOR EMPTY SYMBOL BUCKET 

SYMSK_MARLEN = 31 ; Maximum characters/symbol 

SYMSK_TWOCOL = 16 ; Character size for 2 column : mbol table 

CHRSM~SPA_| = “x01 :BIT MASK FOR SPACE-LIKE CHARACTER 

CHRSV_SPA_MSK == 0 BIT NUMBER FOR SPACE-LIKE CHAR 

CHRSM_SYM_ . “x02 3BIT MASK 43 svneot DELIMITER CHARACTER | 
CHRSV_SYM_DLM = 1 3;BIT NUMBER FOR SYMBOL DELIM. 

CHRSM_SYM_CHR == “x04 3B1T MASK FOR CHAR THAT CAN START SYMBOL 
CHRSV"SVM-CHR == 2 :BIT NUMBER FOR SYMBOL CHAR 

CHRSM_SYM_CH1 == *x08 :BI1T MASK FOR CHAR THAT for BE IN SYMBOL 
CHRSV_SYM_CH1 == 3 BIT NUMBER FOR SYMBOL CHA 
CHRSM_NUM_BE = *x10 BIT MASK FOR NUMBER 
CHRSV_NUM BER = 4 3BI1T NUMBER FOR NUMBE 
CHRSM_COMAA_CR = *x20 :BIT MASK FOR COMMA AND CR 
CHRSV_COMMA"CR = 5 ;BIT NUMBER FOR COMMA 

CHRSM_ILL_CAR == 9x40 7BIT MASK FOR ILLEGAL CHARACTER 

CHRSV_ILL_ CHR = 6 ;BIT NUMBER FOR ILLEGAL CHARACTER 
ARG$K_SIZE = 1000 ; Maximum characters in MACRO argument 
AUD$K_SIZE = 16 3; Audit trail string size 
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-MDELETE 


-ENDM 


$MAC 
SMAC_GENVALDE 


GENVALDEF 


16-SEP-1984 17:05:20.25 Page 11 


1 

DEF INE.MAR; 1 16-SEP-1984 17:05:28.2 Page 12 

.SBTTL DEFINE MACRO TEXT SPECIAL MARKERS 
3+¢ 
: SMAC_MTXDEF 
; DEFINES THE MACRO TEXT SPECIAL MARKERS USED DURING MACRO 
; AND REPEAI/IRP PROCESSING. 

.MACRO SMAC_MTXDEF 
MTX$_ARGMRK - “XFF ;ARG_NO. FOLLOWS (BYTE) 
MTX$_TXTLNK : aXFE SLONGWORD OF LINK FOLLOWS 
MTX$_LXLEN = “XFD [LEXICAL OPERATOR=-LENGTH 
MTX$_LXEXT = aXFC SLEXICAL OPERATOR=-EXTRACT 
MTXS_LXLOC = “XFB [LEXICAL OPERATOR==LOCATE 

“XFA TO *XFO RESERVED 

ATX$_LITSTR = “XEF SLITERAL STRING FOLLOWS 
MTX$~LITVAL : “XEE ZLITERAL VALUE FOLLOWS 
MTX$~SYMADR = “XED [SYMBOL ADDRESS FOLLOWS 
MTX$_NOMORE = “KEC [NO MORE ARGUMENTS 

.ENDM = SMAC_MTXDEF 


soe 
; MTX$_ARGMRK 


: MTX$"LITSTR 
: _MTXS= SYMADR 


FOLLOWED BY A BYTE CONTAINING THE ARGUMENT NUMBER 
FOLLOWED BY A LONGWORD OF ADDRESS (TEXT LINK) 
FOLLOWED BY WORD OF COUNT, THEN ASCII STRING 
FOLLOWED BY LONGWORD OF VALUE 

FOLLOWED BY LONGWORD OF SYMBOL ADDRESS 


++ 


-SBTTL DEFINE MACRO LIBRARY FILE OFFSETS 
.MACRO $MAC_MLFDEF 

SNAMDEF 

.PSECT $ABS$,ABS 


MLFSK_RSFNLN = NAMSC_MAXRSS ; Resultant file name Length 
MLFSL_QLINK: ~BLKL : ;QUEVE LINK WORDS 
MLFSL_MCDEF : -BLKL 3# MACROS DEFINED IN THIS MLB 

3(1,E. IMCALL'S SATISFIED HERE) 

MLFSQ_FNAMDS: -BLKQ 1 ; File name descriptor 
MLFSLCTINDEX -BLKL 1 ; Control table index 
MLFSX"NAMBLK: .BLKB NAMSC_BLN > NAM block 
MLFS AM: -BLKB = MLFSK_RSFNLN ; File name string 


MLFSK_BLKSIZ: 


SMAC_MLF DEF 


-MDELETE 
-ENDM S$MAC_MLFDEF 
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-SBTTL DEFINE OPERAND DESCRIPTOR FLAG BITS 


-++ 


FLOR TING 
nunée R FOR D-FLOATING 


OPDSM_ FLOAT#*x2060 N 
NUMBER EOR G-FLOATING 


OPDSM_ FLoaTo*x1060 


; EACH OPCODE SYMBOL BLOCK IS FOLLOWED BY A SERIES OF WORDS WHICH 
; DESCRIBE THE OPERANDS FOR THE OPCODE. THE FOLLOWING MACRO DEFINES 
; THOSE WORD DESCRIPTORS. 
«MACRO S$MAC_OPRDEF 
OPD$S_SIZE = 5 sSIZE_OF BYTES FIELD 
OPD$V_SIZE = 9 ;POSITION OF BYTES FIELD 
PO$S_MOD = sSIZE_OF ACCESS MODE FIELD 
OPD$V_MODE = 5 ;POSITION OF ACCESS MODE FIELD 
PDSM_MODE = 1a@0PD$S_MODE- ake’ MODE ; Mask to isolate mode value 
OPDSM_ADDR = Oax< V_MODE> ;ADDRESS ACCESS MODE 
OPDSM_READ = 13<OPDSV-MODE> sREAD ACCESS MODE 
PDSM_MODIFY = @<OPD$V_MODE> ;MODIFY ACCESS MODE 
OPDSM_WRITE = S<OPDSV“MODE> sWRITE ACCESS MODE 
OPDSM_VIELD = 4Q<OPDSV_MODE> ;FIELD ACCESS 
OPDSM_ = 5a<OPD$V~MODE>+1;:BRANCH BYTE 
OPDSM_ = 6a<0PD$V “MODE>+2: BRANCH WORD 
OPDSM_FLOAT = *x8000 FLOATING pore (MUST BE SIGN BIT) 
OPD$V_FLOAT = 13 BIT NUMBER T 
OPDSM-D_FLOAT = OPDSM_ FLOATS*x4060 


$M LO 
OPD$V_H_ FLOAT 
OPDSM_NOT_32F 


zoqovcve"r £w 
nhnnnnnnun 


AB=OPD$M_ADDR+B 


RF =OPD$M_READ+F 


+OPD$M_FLOAT 


8+OPD$M_D_FLOAT 
8+OPD$M_G_FLOAT 


16+OPD$M_H_FLOAT 


Ofen— 


-FLOATING 
NUMBER FOR H-FLOA 


TING 
*¥4000+"x2000+*xi800 sNOT SINGLE PREC. IF THIS SET 


TH=FLOATING 


| 
| 
| 
a . | 
} 
| 
| 
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ML=OPD$M~MODIFY+L 
MF =OPDS$M—MODIFY+F 
MD=OPDSM~MOD IF Y+D 
MO=OPD$M~MODIFY+0 
MG=OPD$M_MODIFY+G 

=OPD$M~MODIFY+0 
MH=OPDS$M—MODIFY+H | 
WB=OPDSM-WRITE+B | 
WW=OPDSM"WRITE+W | 
WL=OPDSM"WRITE+L 
WF=OPDSM_WRITE+F | 
WD=OPDS$M—WRI TE +D | 
WO=OPD$M"WRITE+0 | 
WG=OPDSM_WRITE+G | 
WO=OPDSM~WRITE+0 
WH=OPDSM_WRITE+H | 
VB=OPDSM-VIELD+B 
VW=OPDSM_VIELD+W | 
VL=OPDSM~VIELD+L 
VF =OPDS$M_VIELD+F 


.ENDM  SMAC_OPRDEF 


F 
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~SBTTL TERMINAL GRAMMAR SYMBOL DEFINITIONS 


; THIS MACRO DEFINES Nas TERMINAL GRAMMAR SYMBOLS IN THE 
: VAX=11 MACRO GRAMMAR 


-MACRO S$MAC_GRAMMARDEF 


i 
— 


~J 

o 

un” 
HHHnHHHHHHHhHHhHHHHhHH HHH hahha Hhhahnhahahaheaheaeaeae 
BBE EEE & ANAM WAI NIAIRIPINPIPININPINININIDY 4 9 9 SS SB OOVNOU EW 
NOME WN 0 OD NOUS WN $0 OD NOU EWN SO OONOUS WhO 


i aeaiaee tee See Ts gee oe ee 
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> 
e 


—-—C 


KGLOBL 
K INCLUDE 


4 
KPSECT 
KRE STORE 
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uw 


kt at ks te ts as Ss a as as as as as = a + 4 - 


WANA POPIPOPINIPONINON 2 2 OS OO ae es 
WN SO OONA VE WN OC OONOUS Ww O0@ 


-MDELETE SMAC_GRAMMARDEF 
-ENDM $MAC_GRAMMARDEF 


aef 
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-SBTTL FLAG DEFINITIONS 


; THIS MACRO DEFIN s, THe BIT FLAGS THAT LIVE_IN THE FLAGS WORD 
3 *MACSFLAGS' A BIT POSITION INDICATES FALSE AND A 1 
; INDICATES TRUE. 
«MACRO SMAC_CTLFLGDEF 
“MACRO $FLG~DEF INE F 
FLGSV_‘F = xT 
FLGSM""F = x2 
JER RS 
X2 = X2 @ 
.ENDM $FLG_DEF INE 
x1=0 
X2=1 
; TRUE INDICATES: 
SFLG_DEF INE ALLCHR ;MACSGETCHR SHOULD PASS SEMICOLONS 
;(ALLCHR MUST BE LOW BIT!!!) 
SFLG_DEF INE BOL OPCODE NOT YET FOUND 
SFLG_DEF INE COMPEXPR EXPRESSION IS COMPILE TIME 
SFLG_DEF INE CONT ALLOW LINE CONTINUATIONS 
SFLG_DEF INE DATRPT REPEATING DATA DEFINITION 
SFLG_DEF INE ENDMCH CHECK MACRO DIRECTIVES 
SFLG_DEF INE EVALEXPR sEXPR TO BE EVAL ON PASS 2 
SFLG_DEFINE EXPOPT EXPRESSION CAN BE OPTIMIZED 
SFLG_DEF INE INSERT INSERT SY T FOUND 
SFLG_DEF INE LSTXST LISTING FILE EXISTS 
SFLG_DEF INE NEWPND 3NEW PAGE PENDING 
SFLG_DEF INE MACL MACRO TEXT LINE PRESENT 
SFLG_DEF INE MEBLST SPECIAL LIST MEB FLAG 
SFLG_DEF INE OPRND [SCANNING OPERAND FIELD 
SFLG_DEF INE P2 7IN PASS 2 | 
$FLG_DEF INE SKAN ZALLOW SCANNING 
SFLG_DEF INE MACTXT READING FROM MACRO TEXT | 
(FALSE INDICATES READING SOURCE FILE) 
SFLG_DEF INE ORDLST 7SYMBOL TABLE LIST IS ORDERED 
(OPCODES ARE NOT ORDERED IN BUCKETS) 
SFLG_DEF INE STOIMF STORING IMMEDIATE DATA (MACS$STOIM) | 
SFLG_DEF INE TOCFLG PAGE HEADER FOR SUBTITLES NOT NEEDED 
SFLG_DEF INE CHKLPND THERE IS A CHKL PENDING FROM A CONTINUED LINE 
$SFLG_DEF INE OBJX THERE IS AN OBJECT FILE 
SFLG_DEF INE 1IF THIS IS .JIF AS OPPOSED TO .IF 
$FLG_DEFI IFSTAT THIS IS AN IF STATEMENT 
SFLG_DEF INE NOREF 3D0 NOT SET REF WHEN SYMBOL IS FOUND 
(USED ONLY BY .NTYPE NOW) 
SFLG_DEF INE SEQFIL : INPUT FILE HAS SEQUENCE NUMBERS 
$FLG_DEF INE SPLALL SPECIAL PASS ALL CHARACTERS FOR 
READING CERTAIN DIRECTIVES WHILE | 
DEFINING MACROS | 
SFLG_DEF INE MACLTB THERE IS MACRO TEXT IN BUFFER (P2) 
$FLG_DEF INE RPTIRP IN AN IRP OR REPEAT (PASS 1) 
$FLG_DEF INE IRPC ;IRPC AS OPPOSED TO IRP 
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MAC 
V04 


DEF INE .MAR; 1 
SFLG_DEF INE CRF ;/CROSS REQUESTED 
SFLG_DEF INE XCRF ;-NOCROSS IN EFFECT 
X2=1 **INTO SECOND FLAGS WORD!! 
SFLG_DEF INE CRSEEN ;FLAG FOR TOKEN THAT CR WAS SEEN ONCE. 
SFLG_DEF INE LEXOP oaeeere CALLED FOR LEXICAL ware: 
SFLG_DEF INE SPECOP :SPECIAL OPERATOR OUTPUT FOR LINE (MACSBDYSCN) 
SFLG_DEF INE MORE INP EMORE INPUT FILES COMING 
SFLG_DEF INE AFLG [SET WHEN “A/text/ SEEN 
SFLG_DEF INE NTYPEPC ; Suppress PC check for .NTYPE 
SFLG_DEF INE MARG ; Set to get Macro argument upper cased 
SFLG_DEF INE DFIL : Input file is being updated 
SFLG_DEF INE OPNDCHK ; Operand oy he foe ed 
$SFLG_DEF INE FIRSTLN ; First Listing 
SFLG_DEF INE arngee ; Two column symbol fable Listing 
$SFLG_DEF INE MAC2COL ; Two column macro Listi ng 
SFLG_DEF INE OPTVFLIDX ; Optimized ref. will oVFL if indexed 
SFLG_DEF INE MOREARG ; Previous argument had ee — 
$SFLG_DEF INE DBGOUT ; Output debugger records for abs pse 
SFLG_DEF INE DLIMSTR ; Pass ALL characters in delimited” ASC Ix strings 
SFLG_DEF INE EXTERR ; An external (non-assembly) error has occurred. 
sFLGn DEF INE EXTWRN ; An external (non-assembly) warning has occurred. 
SFLG_DEF INE NULCHR ; Null character as a parameter 
; FLAGS IN MACS$GL_OPSIZE 
OPFSM_LASTOPR = *x2000 ;LAST OPERAND IN OPCODE 
OPE $V_ _LASTOPR = 3 
OPF $M_OPTEXP = Need sEXPRESSION HAS BEEN OPTIMIZED 
OPF $V_OPTEXP = 12 : 
-MDELETE SMAC_CTLFLGDEF, SFLG_DEFINE 


-ENDM $MAC_CTLFLGDEF 
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.SBTTL CRF_FLG FLAG BITS 
-MACRO SMAC_CRFLAGDEF 


CRFSM_DIR = 1 sCREF DIRECTIVES 
CRFSV_DIR = : 

CRESE_RACROS = ;CREF MACROS 
CRFSV_MACROS = ; 

tb RSF = & sCREF OPCODES 
CRFSV_OPCODES = ; 
CRFSM_REGISTERS = ;CREF REGISTERS 
CRFSV_REGISTERS = : 

CRFSM_SYMBOLS = 6 ;CREF SYMBOLS 
CRFSV_SYMBOLS = & : 


CRFSM_DEF AULT 
.ENDM = $MAC_CRFLAGDEF 


CRF SM_MACROS! CRF SM_SYMBOLS 


.SBTTL ADDRESSING MODE DEFINITIONS 
: THIS MACRO DEFINES THE ADDRESSING MODES. 


;MACRO  SMAC_ADRMODDEF 


=0 
ACRO SYM 
ADMS_*SYM= 
=X+T 
~ENDM 
cop LITERAL LITERAL MODE 
CoD IMMEDIATE : IMMEDIATE MODE 
CoD ABSOLUTE ;ABSOLUT 
COD PIC Bic 
COD INDEX sECRI 
COD REGISTER R 
COD IND 3 (R) 
CoD REGAUTODEC 3-(R) 
COD REGAUTOINC 7(R)+ 
COD DFRAUTOINC sa(R)+ 
COD YTE_DISP 7B*D(R) 
COD DFBYTEDISP 3@B*D(R) 
CoD WORD Pp 7W*D(R) 
COD DFWORDDISP saw*D(R) 
COD LONG_DISP 3L°D(R) 
CoD DFLONGDISP 3@L*D(R) 
ADM$_MAXMOD = X-1 yMAX. ALLOWABLE MODE 


-MDELETE SMAC_ADDRMODDEF, COD 
-ENDM $MAC_ADRMODDEF 
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~SBTTL INTERMEDIATE FILE OPCODE DEFINITIONS 


+ 
+ 


PASS 1 OF THE ASSEMBLER GEN meres AN INTERMEDIATE A sti FILE 
WHICH IS PROCESSED BY PASS 2 TO PRODUCE THE ate FILE. 
THE INTERMEDIATE CODE HAS THE FOLLOWING FORMA 


gerererererereranre 


* — LENGTH * LENGTH IN BYTES OF THIS FRAME 
eeeeetereeererene 

* ACTION * ACTION TO PERFORM (SEE CODES BELOW) 
eeeeeeerrererrene 1 BYTE 

* * 

* DATA * DATA ASSOCIATED WITH FRAME 

® * 

eererererereereee VARIABLE LENGTH 


THE ~~ BELOW DEFINES THE ACTION Ace Bar GENERATES A oy TABLE. 
THIS MACRO ee ti BE INVOKED WITH NO ARGUMENT TO per INE THE 
SYMBOLS "INT$_ SYMBOL’, AND INVOKED W TH THE ARGUMENT 
DISPATCHTABLE® TO GENERATE THE PASS2 DISPATCH TABLE. 


-MACRO $SMAC_INTCODDEF TYPE 
SCOUNT = 0 + 
IF DIF <TYPE>,<DISPATCHTABLE> 


MACRO IN SYM 
iNTS °SYHNe = SCOUNT 
SCOURT = SCOUNT + 1 

- ENDM 

IFF 

-"y INT SYM 
ONG P2$"SYM 

SCOUNT=SCOUNT#1 

-ENDM 

-ENDC 


INT ILG > ILLEGAL INTERMEDIATE CODE ( 
:***BELOW SYMBOLS ARE ARITHMETIC OPERATORS***POSITI 
INT ADD DD TOP TACK 


TWO ITEMS ON S 
INT AND LOGICAL L AND 


0) 
ON MUST NOT CHANGE 


INT ASH 

INT DIV DIVIDE 

INT MUL SMULTIPLY 
INT NEG 7NEGA 

INT NOT SLOGICAL NOT 


N 1 
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DEF INE .MAR; 1 
INT OR ;LOGICAL OR 
fet SAME SUNARY PLUS 
I sos hae anjBCELOSTHE 
a SymBo.§ mane ani TREN TL-BeERaTORSe+ePosiT10n MUST NOT CHANGE 
INT AUGPC 3 T PC 
INT BDST ;GENERATE BRANCH DESTINATION 
INT CHKL sALLIGN OUTPUT WITH SOURCE LINES 
INT END sEND OF INTERMEDIATE CODE 
INT EPT sENTRY POINT DEFINITION 
INT ERR 3P 1_ERROR MESSAGE 
INT ETX sERROR TEXT FOR .ERROR/.WARN/.PRINT 
INT FNEWL FORCE NEW LISTING LINE 
INT LGLAB ;STANDARD (NOT LOCAL) LABEL 
INT MACL 3 TEXT LINE 
INT NEWL ;NEW LINE OF SOURCE TEXT 
INT NEWP ;DEFINE NEW PSECT 
INT oP ;GENERATE OPCODE 
INT PRIL ;PRINT LONG WORD IN LISTING 
INT PRT :PASS 1 PRINT DIRECTIVE 
INT PSECT ;CHANGE PSECT 
INT REDEF TRANSFER DIRECTIVE 
INT REF soeeroate REFERENCE 
INT REST RESTORE PSECT 
INT SAVE 7SAVE PSECT 
INT SBTTL SUBTITLE 
INT SETFLAG :SET FLAG IN MACSGL_FLAGS 
INT SETLONG ;STORE LONGWORD VAL 
INT SPIC sSTORE POSITION INDEPENDENT (NOT USED AT PRESENT) 
INT SPID sSTORE ADDRESS 
INT STIB STORE feectart errr 
INT STIlW ;STORE IMMEDIATE WORD 
INT STIL 3; STORE eee 8 pica: 
INT STKEPT ;STACK ENTRY 
INT TKG 3 STACK GLOBAL SYMBOL 
INT STKL sSTACK LITERAL VALUE 
INT STKPC ;STACK CURRENT PC 
INT TKS STACK SY 
INT STOL ;STORE LONG WORD 
INT STRB sSTORE REPEATED BYTE 
INT STRW sSTORE REPEATED WORD 
INT STRL :STORE REPEATED LONG 
INT STRSB ;STORE REPEATED SIGNED BYTE 
INT STRSW STORE REPEATED SIGNED WORD 
INT STOB sSTORE BYTE 
INT STOW ;STORE WORD 
INT STSB :STORE SIGNED errs 
INT STSW ;STORE SIGNED WORD 
INT WRN PASS 1 WARNING MESSAGE 
INT SUME ;Source-update-merge error 
INT INFO :Information message 
-MDELETE SMAC_INTCODDEF, INT 
-ENDM $MAC_INTCODDEF 


———— | 


MAC 
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~-SBTTL OBJECT CODE DEFINITIONS 


Mag SYMBOLS AND FLAG DEFINITIONS ARE SUPPLIMENTAL TO THOSE DEFINED 
Y SOBJDEF AND ARE USED BY THE PASS 2 ACTION ROUTINES. 


-MACRO $MAC_OBJCODDEF 
SOBJDEF ; DEFINE THE OBJECT CODE. 


: SYMBOL DEFINITION MASK BITS 


SYMSF_WEAK = “0001 : WEAK RESOLUTION 
SYMSF DEF = “0002 : DEFINITION 
SYM$F ~UNI = “0004 : UNIVERSAL 
SYM$F ~REL = “0010 : RELATIVE 
SYMSF VALIDATE = “0020 : VALIDATE 

: END OF MODULE RECORD STATUS 
OBJSC_EOM_OK = EOMSC_SUCCESS ; No ag RRORS 
OBJ$C~EOM~ WRN = EOMSC"WARNING : RNINGS 
OBJSCEOM"ERR = EOMSC~ERROR : SERIOUS ERRORS 
OBJ$SC"EOM~ABORT = EOMSC~ABORT : LINK 

, INFORMATION AND RELOCATION 

TIRSC_STO_LW = TIRSC_STO_L : STORE LONG WORD DATUM 


»-MDELETE $MAC_OBJCODDEF 
-ENDM $MAC_OBJCODDEF 


dM A + 


MA( 
VOé 
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oe 
FUNCTIONAL DESCRIPTION: 


; THIS MACRO, SINTOUT_X, IS USED WHEN THERE IS NEED TO ONLY 
; PUT AN ACTION INTO THE INTERMEDIATE FILE. FOR EXAMPLE 
; INTS_CHKL, THE ALIGN SOURCE DIRECTIVE, TAKES NO ARGUMENTS, 
.MACRO $SINTOUT_X ACTN 
MOVZBL #ACTN,RO 
BSBW MACSINTOUT_X 


MA( 
v0é 
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-MACRO einrout LW ACTN,DATA 


iNTOUTC2 DAT 
nOvzBL WACTN.RO 
If - <ACTN>,<INTS_ERR> 
ERR=1 
SENDC 


E 
i 


If DN <ACTN>, <INTS_URN> 
ENDC 
NT_LW_CALL \CNT 
ENOM 


— 


TOUTC2 D1,D2,D3 


oo 99 YVOO 
—— rr Ve = 


INT_LW_CALL C 
MACSINTOUT_'C'_LW 
MACSINTERR_'C'_LW 


SINTOUT_wD ACTN,DATA 
#ACTN,RO 


DATA, R1 
MACSINTOUT_wD 


MA( 


DEF INE.MAR; 1 


-SBTTL 


++ 


-MACRO 


BYT,RO 


-ENDC 
BSBW 
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PUSH/POP ON VALUE STACK 


THESE TWO MACROS ARE USED TO PUSH AND POP FROM THE 
PARSER VALUE STACK. 


syrusn LOC 


LOC ,W°MACSAL_VALSTACK(R7] 
$VPUSH 


SVPOP LOC 
W°MACSAL _VALSTACKLR7,LOC 


$VPOP 
ADJUST PC 
SINC_PC CNT 

CN 
W*MACSGL_PC 
CNT ,W°MACSGL_PC 
SINC_PC 
SDEC_PC CNT 

NT 
W*MACSGL_PC 
CNT ,W°MACSGL_PC 


OUTPUT BYTE TO OBJECT CODE 


$O0BJ_OUTBYT BYT 
<BYTS,<RO> 


BYT,RO 


MACSOUTOBJ 
$0BJ_OUTBYT 


$0BJ_OUTBYT_O YT 
BYT,TR10)+ 
$0B)_OUTBYT_O 


-SBTTL OUTPUT BYTE TO OBJECT CODE, CHECKING FOR BUFFER OVERFLOW 


-MACRO $0BJ_CHKBYT BYT 
.1F DIF <BYTS,<RO> 
MOVB 


MACSCHKBYT 


MAI 


-ENDM 
-SBTTL 
-MACRO 
MOVZWL 
BSBW 
-ENDM 
-SBTTL 


DEF INE .MAR; 1 


$OBJ_CHKBYT 
SIGNAL PASS 2 ERROR 
SMAC_P2_ERR MSGNAM 
a<mats Ma 7 lead 
MACSPASS ERR 

SMAC_P2_ER 


OUTPUT BYTES TO LISTING FILE 
SMAC LAST _evTe N 

<N>,2RO> 

N,RO 


MACSLIST_BYTES 
$MAC_LIST_BYTE 


-SBTTL SET MACRO ERROR CODE 
-MACRO $MAC_ERR CODE 

MOVZWL #<MATS$S 'CODER*XFFFF>,RO 
-ENDM $MAC_ERR 


F 
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~SBTTL SMAC_INSERT_SYM MACRO TO PLACE SYMBOLS IN LINKED LIST 


++ 


SMAC_INSERT_SYM == PLACE SYMBOLS IN ONE LINKED LIST 


; MACRO TO PLACE SYMBOLS IN ONE LINKED LIST. THIS MACRO IS 

; USED WHEN ONLY A SINGLE LINKED LIST INSTEAD OF A HASH TABLE 
; IS USED. THE SYMBOL ‘1 P* IS THE LINK POINTER, AND 

; 1T SHOULD BE ZEROED BEFORE THE LIST IS CREATED. 


-MACRO a REET STR NAM,VL1,FLAG=0,HEAD sNAME, VALUE, FLAG, HEAD 


-ASCIC 

-lIF NOT_BLANK <HEAD>, HEAD:: 

INSYTM=. 

LON INSYMP 

INSYMP = INSYTM 

»NCHR INSYMC , <NAM> 

BYTE INSYMC 

° G VL1 3 VALUE 

~WORD FLAG FLAGS 

. 0 7 TOKEN 
0 3; SEGMENT 


-BYTE 
-ENDM = $MAC_INSERT_SYM 
MACRO SMAC INSERT_SYX NAM, VAL ,HEAD ;NAME, VALUE, HEAD 


-ASCIC 

lIF NOT_BLANK <HEAD>, HEAD:: 
INSYTM=. 
-LONG INSYMP 
INSYMP = INSYTM 
-NCHR INSYMC , <NAM> 
BYTE INSYMC+1 


“LONG VAL 
[ENDM $MAC_INSERT_SYX 


«LIST 
- END 


AH-BT13A-SE 
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